home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 15 Orphan Computers / BNEWS1.TXT < prev    next >
Text File  |  2019-04-13  |  2KB  |  59 lines
  1. *nb"BUG1/1/004"
  2. *lm6:rm78:pl66:tl60
  3. *p#4:hd1:B128 Users Group Journal,,
  4. *ft4:----------------------------,page #,-----------------------------
  5. -------------------------------------------------------------------------
  6.  
  7. Continued from page 3
  8.  
  9. With this new found capability I got involved in converting some C64 programs to check it out.  A short example BASIC program listing follows:
  10.  
  11. Northern Tune
  12.  
  13.  100 print "music  (by jim butterfield): rem modified for the B128 by M. Schwanke
  14.  110 l1=54272+1536:l2=54279+1536:l3=54286+1536:rem +1536 offset for b128 sid address
  15.  120 h1=l1+1:h2=l2+1:h3=l3+1
  16.  130 v1=l1+4:v2=l2+4:v3=l3+4
  17.  140 poke 54296+1536,15
  18.  150 poke v1+1,9:poke v2+2,0
  19.  160 poke v2+1,36:poke v2+2,36
  20.  170 poke v3+1,18:poke v3+2,170
  21.  200 poke v1,16:poke v2,32:poke v3,16
  22.  210 read s:if s=0 goto 290
  23.  220 read x1,y1,x2,y2,x3,y3
  24.  230 if x1 then poke h1,x1:poke l1,y1:poke v1,17
  25.  240 if x2 then poke h2,x2:poke l2,y2:poke v2,33
  26.  250 if x3 then poke h3,x3:poke l3,y3:poke v3,17
  27.  260 s=s-1: for a0=1 to 5: next a0
  28.  270 if s>0 goto 260
  29.  280 goto 200
  30.  290 for j=l1 to 54296+1536: poke j,0:next j: rem +1536 offset for B128 sid address
  31.  300 data 20,3    75,21,154,8,147
  32.  310 data 20,34,75,25,177,0,0
  33.  320 data 20,38,126,28,214,6,108
  34.  330 data 20,43,52,25,177,0,0
  35.  340 data 20,34,75,21,154,8,147
  36.  350 data 20,43,180,25,177,0,0
  37.  360 data 20,38,126,22,227,8,23
  38.  370 data 20,0,0,25,177,0,0
  39.  400 data 20,34,75,21,154,8,147
  40.  410 data 20,34,75,25,177,0,0
  41.  420 data 20,38,126,28,214,6,108
  42.  430 data 20,43,52,25,177,0,0
  43.  440 data 20,34,75,21,154,8,147
  44.  450 data 20,0,0,25,177,0,0
  45.  460 data 20,32,94,22,227,8,23
  46.  470 data 20,0,0,19,63,6,108
  47.  500 data 20,34,75,21,154,8,147
  48.      0 data 20,34,75,25,177,0,0
  49.  520 data 20,38,126,21,154,7,163
  50.  530 data 20,43,52,17,37,0,0
  51.  540 data 20,45,198,28,214,7,53
  52.  550 data 20,43,52,34,75,0,0
  53.  560 data 20,38,116,28,214,0,206
  54.  570 data 20,34,75,22,227,0,0
  55.  600 data 20,32,94,25,177,6,108
  56.  
  57. Continued on page 5
  58. *fp0
  59.